1 GOSUB18000 2 GOTO12000 4 CX=5:SP=0 5 CO=6:CB=0 6 LE$="0":L$="0":RE$="0":PE=0:IT=0:XX=0:YY=0:FL=0:FR=0:DD=0:GN=0:PP=0:PR=0 7 L1=0:L2=0:L3=0:L4=0:L5=0:L6=0:L7=0:L8=0:L9=0:PY=0:CC$="0" 8 B1=0:B2=0:B3=0:B4=0:B5=0:B6=0:B7=0:GN=0:PP=0:PY=0 9 IFSP=1THENPRINT"[147] OFFENSE HAS CHOSEN SPREAD FORMATION":GOSUB13020 10 PRINT"[147] SET UP YOUR DEFENSE" 15 PRINT"" 20 PRINT"LINE [166] [166] [166] [166] [166] . [166]" 25 PRINT" 9-BLITZ" 30 PRINT"LINEBACKERS . . . . ." 40 PRINT" 1 2 3 4 5" 50 PRINT" . . ." 60 PRINT" 6 7 8" 70 PRINT"========================================" 80 PRINT"DEFENSIVE . ." 90 PRINT"BACKS 1 2" 100 PRINT" . . . . ." 110 PRINT" 3 4 5 6 7" 120 PRINT"LEFT END - CHARGE OR HOLD" 123 GET LE$:IFLE$="" THEN 123 130 IF LE$="C" THEN POKE 1159,78:GOSUB910:GOTO220 140 IF LE$="H" THEN POKE 1159,76:GOSUB 910:GOTO220 150 IFLE$<>"C" ANDLE$<>"H" THENGOSUB 900:GOTO120 220 PRINT"[145]LINE - CHARGE OR HOLD" 223 GET L$:IFL$="" THEN 223 230 IFL$="C"THEN FOR I=1165 TO 1171 STEP2:POKEI,30:NEXTI:GOSUB910:GOTO320 240 IF L$="H" THEN FOR I=1165 TO 1171 STEP2:POKEI,70:NEXTI:GOSUB 910:GOTO320 250 IFL$<>"C" ANDL$<>"H" THENGOSUB 900:PRINT"":GOTO220 320 PRINT"[145]RIGHT END - CHARGE OR HOLD" 323 GET RE$:IFRE$="" THEN 323 330 IF RE$="C" THEN POKE 1177,77:GOSUB910:GOTO400 340 IF RE$="H" THEN POKE 1177,122:GOSUB 910:GOTO400 350 IFRE$<>"C" ANDRE$<>"H" THENGOSUB 900:PRINT"":GOTO320 400 PRINT"SELECT LINEBACKERS - ENTER 0 WHEN DONE" 410 GET X$:IFX$=""THEN 410 413 IF X$<"0"ORX$>"9"THEN 410 420 IF X$="0"THEN PRINT"[145][145]":GOSUB905:GOTO600 430 X=VAL(X$) 440 ON XGOTO510,520,530,540,550,560,570,580,590 510 L1=1:POKE1277,230:PRINT"[145][145]":CO=CO-1:(null) TO1000 520 L2=1:POKE1284,230:PRINT"[145][145]":CO=CO-1:(null) TO1000 530 L3=1:POKE1288,230:PRINT"[145][145]":CO=CO-1:(null) TO1000 540 L4=1:POKE1292,230:PRINT"[145][145]":CO=CO-1:(null) TO1000 550 L5=1:POKE1299,230:PRINT"[145][145]":CO=CO-1:(null) TO1000 560 L6=1:POKE1403,230:PRINT"[145][145]":CO=CO-1:(null) TO1000 570 L7=1:POKE1408,230:PRINT"[145][145]":CO=CO-1:(null) TO1000 580 L8=1:POKE1413,230:PRINT"[145][145]":CO=CO-1:(null) TO1000 590 L9=1:POKE1174,30:POKE1214,102:PRINT"[145][145]":CO=CO-1:GOTO1000 600 PRINT"SELECT DEEP BACKS" 610 GET V$:IF V$=""GOTO610 620 IF V$<"1" OR V$>"7" THEN 610 630 V=VAL(V$) 640 ON V GOTO710,720,730,740,750,760,770 710 B1=1:POKE1556,230:PRINT"[145][145]":CO=CO-1:CB=CB+1:(null) TO1020 720 B2=1:POKE1580,230:PRINT"[145][145]":CO=CO-1:CB=CB+1:(null) TO 1020 730 B3=1:POKE1676,230:PRINT"[145][145]":CO=CO-1:CB=CB+1:(null) TO 1020 740 B4=1:POKE1683,230:PRINT"[145][145]":CO=CO-1:CB=CB+1:(null) TO1020 750 B5=1:POKE1688,230:PRINT"[145][145]":CO=CO-1:CB=CB+1:(null) TO1020 760 B6=1:POKE1693,230:PRINT"[145][145]":CO=CO-1:CB=CB+1:(null) TO1020 770 B7=1:POKE1700,230:PRINT"[145][145]":CO=CO-1:CB=CB+1:(null) TO1020 780 IFCB>CX+1THENPRINT"[147]YOU ARE ONLY ALLOWED"(CX+1)"MEN BACK":GOSUB13020:GOTO5 790 CX=CB 800 GOSUB920:PRINT"[145]YOU HAVE NOW USED ALL OF YOUR MEN." 810 PRINT"IS THIS O.K. --YES OR NO" 820 GET N$:IF N$="" THEN 820 825 IF N$<>"N"AND N$<>"Y" THEN 820 830 IF N$="Y"THEN GOTO2000 870 GOTO5 900 PRINT"":RETURN 905 FOR I=1824 TO 1864:POKEI,32:NEXT:RETURN 910 FOR I=1784 TO 1824:POKEI,32:NEXT:RETURN 920 FOR I=1784 TO 2023:POKEI,32:NEXT:RETURN 1000 IF CO<1 THEN GOTO800 1010 PRINT"YOU NOW HAVE"CO"[157] MEN TO PLACE[145][145][145][145][146]":GOTO400 1020 IF CO<1 THEN GOTO780 1030 PRINT"YOU NOW HAVE"CO"[157] MEN TO PLACE[145][145][145][145][146]":GOTO600 2000 IF SP=1 THEN PRINT"[147] SPREAD FORMATION":GOSUB9200 2005 PRINT"[147] THE DEFENSE HAS"CB"MEN BACK" 2010 PRINT"SET UP YOUR PLAY" 2020 PRINT"D- DIRECT HANDOFF" 2030 PRINT"T- TRAP PLAY" 2033 PRINT"P- PITCHOUT (WIDE RUN)" 2035 PRINT"S- SCREEN PASS" 2040 PRINT"H- HOOK PASS" 2045 PRINT"C- CENTRE PASS (POST PATTERN)" 2050 PRINT"W- WIDE PASS" 2070 PRINT"L- LONG PASS" 2075 PRINT"*- SPREAD OR SHORT PUNT FORMATION" 2080 PRINT"K- KICK" 2085 PRINT"F- FIELD GOAL" 2090 GET P$:IF P$="" GOTO2090 2100 IFP$="D"THEN PRINT"HANDOFF -LEFT,CENTRE OR RIGHT?":GOSUB5000:GOSUB5200 2120 IF P$="T"THEN PRINT"TRAP PLAY -LEFT,CENTRE OR RIGHT?":GOSUB5000:GOSUB5200 2125 IF P$="D" OR P$="T" GOTO3000 2130 IFP$="P"THENPRINT"WIDE RUN -LEFT OR RIGHT?":GOSUB 5100:GOSUB5200:GOTO3300 2140 IFP$="S"THEN PRINT"SCREEN PASS -LEFT OR RIGHT?":GOSUB5100:GOSUB5200 2145 IF P$="S" THEN 3400 2150 IFP$="H"THENPRINT"HOOK PASS -LEFT OR RIGHT?":GOSUB5100:GOSUB5200:GOTO3500 2155 IFP$="C"THENPRINT"POST PATTERN PASS, -DOWN THE CENTRE":GOSUB5200:GOTO3600 2170 IFP$="W"THENPRINT"WIDE PASS -LEFT OR RIGHT?":GOSUB5100:GOSUB5200:GOTO3700 2180 IFP$="L"THEN PRINT"LONG PASS -LEFT,CENTRE OR RIGHT?":GOSUB5000:GOSUB5200 2190 IFP$="L"THEN GOTO3800 2200 IFP$="K"THEN PRINT"KICK":GOSUB5200:GOTO3900 2210 IFP$="F"THEN PRINT"FIELD GOAL ATTEMPT":GOTO2340 2220 IFP$="*" THEN SP=1:GOTO2400 2300 IFP$<>"D"ANDP$<>"T"ANDP$<>"P"ANDP$<>"S"ANDP$<>"H"ANDP$<>"C"THEN GOTO2310 2310 IFP$<>"W"ANDP$<>"L"ANDP$<>"K"ANDP$<>"F"ANDP$<>"*"THEN GOTO2090 2340 IFN=OT OR YL>49 THEN GOTO2360 2350 GOSUB5200:GOTO8800 2360 PRINT:PRINT"YOU ARE TOO FAR AWAY TO" 2370 PRINT" TRY A FIELD GOAL.":GOSUB13000:GOTO2000 2400 PRINT"[147]YOU HAVE CHOSEN TO USE THE 'SPREAD' OR 'SHORT PUNT' FORMATION" 2410 PRINT"IF YOU USE THIS FORMATION, YOU WILL LOSE 10 YARDS ON A GROUNG PLAY" 2420 PRINT" BUT YOUR QUARTERBACK CANNOT[146] BE SACKED." 2430 PRINT"THE DEFENSE NOW HAS AN OPPORTUNITY TO" 2440 PRINT" CHANGE ITS ALIGNMENT." 2441 PRINT" IS THIS O.K." 2445 PRINT" (Y)ES OR (N)O" 2450 GET Q$:IFQ$=""THEN2450 2455 IF Q$<>"Y"ANDQ$<>"N"THEN2450 2460 IF Q$="Y" THEN GOTO5 2470 SP=0:GOTO2000 2999 REM*** HANDOFF AND TRAP PLAYS *** 3000 IF P$="D" AND L$="C" THEN 8010 3010 IF P$="D" AND L$="H" GOTO3100 3020 IF P$="T" AND L$="H"THEN 8010 3030 IF P$="T" AND L$="C"THEN 3100 3100 IFQ$="R" GOTO3150 3110 IF Q$="C"GOTO3200 3120 IF Q$="L"GOTO3250 3150 IF L2=1 THEN 8020 3160 IF L3=1 THEN 8031 3170 IF L6=1 THEN 8040 3175 IF L7=1 THEN 8050 3180 IF B5=1 THEN 8060 3190 IF B5=0 THEN 8070 3200 IF L3=1 THEN 8020 3210 IF L4=1 OR L2=1THEN 8031 3220 IF L7=1 THEN 8040 3230 IF L6=1 OR L8=1 THEN 8050 3240 GOTO3180 3250 IF L4=1 THEN 8020 3260 IF L3=1 THEN 8031 3270 IF L8=1 THEN 8040 3275 IF L7=1 THEN 8050 3280 GOTO3180 3300 IF Q$="R" THEN3320:REM****"P" PLAY 3310 IF Q$="L" THEN3350 3320 IF LE$="H" THEN3324:REM**"P"-R- 3322 IF LE$="C" THEN 3330 3324 IF L2=1 THEN 8000: REM**P-R-H** 3326 IF L2=0 THEN 3160 3330 IF L1=1 THEN8040: REM**P-R-C** 3332 IF B1=1 THEN8050 3334 IF B3=1 THEN8060 3336 IF B3=0 THEN8070 3350 IF RE$="H" THEN3354:REM**"P"-L- 3352 IF RE$="C" THEN 3360 3354 IF L4=1 THEN 8000: REM**P-L-H** 3356 IF L4=0 THEN 3160 3360 IF L5=1 THEN8040: REM**P-L-C** 3362 IF B2=1 THEN8050 3364 IF B7=1 THEN8060 3366 IF B7=0 THEN8070 3400 REM ***** SCREEN PASS ****** 3401 IF Q$="R" GOTO3420 3410 IF Q$="L" GOTO3450 3420 IF L1=1 THEN 8080:REM**"S" RIGHT** 3430 IF B1=1 THEN 8090 3440 IF B3=1 THEN 8095 3445 IF B3=0 THEN 8100 3450 IF L5=1 THEN 8080:REM**"S" LEFT ** 3460 IF B2=1 THEN 8090 3470 IF B7=1 THEN 8095 3480 IF B7=0 THEN 8100 3500 REM **** HOOK PASS ***** 3501 IF Q$="R" GOTO3520 3510 IF Q$="L" GOTO3550 3520 IF L6=1 THEN 8110:REM**"H" RIGHT** 3525 IF L7=1 THEN 8120 3530 IF B5=1 THEN 8130 3535 IF B5=0 THEN 8140 3550 IF L8=1 THEN 8110:REM**"H" LEFT ** 3555 GOTO3525 3600 REM*** POST PATTERN PASS **** 3610 IF L7=1 THEN 8150 3620 IF L6=1 OR L8=1 THEN 8160 3630 IF B5=1 THEN 8130 3640 IF B5=0 THEN 8140 3700 REM *** WIDE PASS ****** 3710 IF Q$="R" GOTO3730 3720 IF Q$="L" GOTO3750 3730 IF B1=1 THEN 8170:REM "W", RIGHT*** 3735 IF B3=1 THEN 8180 3740 IF B3=0 THEN 8190 3750 IF B2=1 THEN 8170:REM "W", LEFT**** 3755 IF B7=1 THEN 8180 3760 IF B7=0 THEN 8190 3800 REM *** LONG PASS *** 3802 IF SP=1 THEN GOTO3810 3805 IF LE$="C"ANDL$="C"ANDRE$="C"ANDL9=1 THEN GOTO8230 3810 IF Q$="R"GOTO3840 3820 IF Q$="C"GOTO3860 3830 IF Q$="L"GOTO3880 3840 IF B3=1 THEN 8200:REM **LONG-RIGHT 3850 IF B4=1 THEN 8210 3855 IF B4=0 THEN 8220 3860 IF B5=1 THEN 8200:REM ** LONG-LEFT 3870 IF B4=1 OR B6=1 THEN 8210 3875 GOTO8220 3880 IF B7=1 THEN 8200:REM**LONG-CENTRE 3890 IF B6=1 THEN 8210 3895 GOTO8220 3900 REM *** KICK *** 3910 IFLE$="C"ANDL$="C"ANDRE$="C" THENGOTO8250:REM ** SHORT K ** 3920 GOTO8260:REM ** LONG K ** 5000 GET Q$:IFQ$="" THEN 5000 5010 IF Q$="L"THEN PRINT" LEFT" 5020 IF Q$="C"THEN PRINT" CENTRE" 5030 IFQ$="R" THEN PRINT" RIGHT" 5040 IFQ$<>"R" ANDQ$<>"C" ANDQ$<>"L" THEN5000 5050 RETURN 5100 GET Q$:IFQ$="" THEN 5100 5110 IF Q$="L"THEN PRINT" LEFT" 5130 IFQ$="R" THEN PRINT" RIGHT" 5140 IFQ$<>"R" ANDQ$<>"L" THEN5100 5150 RETURN 5200 PRINT"IS THIS THE PLAY YOU WANT-Y OR N" 5210 GET Z$:IF Z$="" THEN 5210 5220 IF Z$<>"Y" AND Z$<>"N" THEN 5210 5230 IF Z$="N" THEN 2000 5240 PRINT"[147]" 5250 PRINT" DEFENSIVE SETUP IS:" 5255 PRINT 5260 PRINT" . . . . . DEFENSIVE":PRINT 5265 PRINT" . . BACKS":PRINT 5270 PRINT" [160] ========================" 5275 PRINT" . . . SECONDARY" 5280 PRINT" . . . . ." 5285 PRINT" [166] . [166] [166] [166] [166] [166] LINE" 5290 PRINT" 5295 [139]B7[178]1[167] [151]1153,230 5300 [139]B6[178]1[167] [151]1157,230 5305 [139]B5[178]1[167] [151]1161,230 5310 [139]B4[178]1[167] [151]1165,230 5315 [139]B3[178]1[167] [151]1169,230 5320 [139]B2[178]1[167] [151]1233,230 5325 [139]B1[178]1[167] [151]1249,230 5330 [139]L9[178]1 [167] [151]1516,2:[151]1556,77 5335 [139]L8[178]1 [167] [151]1357,230 5340 [139]L7[178]1 [167] [151]1361,230 5345 [139]L6[178]1 [167] [151]1365,230 5350 [139]L5[178]1 [167] [151]1433,230 5355 [139]L4[178]1 [167] [151]1437,230 5360 [139]L3[178]1 [167] [151]1441,230 5365 [139]L2[178]1 [167] [151]1445,230 5370 [139]L1[178]1 [167] [151]1449,230 5375 [139] RE$[178]"H"[167] [151]1568,80 5380 [139] RE$[178]"C"[167] [151]1568,78 5385 [139] LE$[178]"H"[167] [151]1554,79 5390 [139] LE$[178]"C"[167] [151]1554,77 5395 [139] L$[178]"H"[167] [129] I[178]1558 [164] 1564[169]2:[151]I,69:[130] 5400 [139] L$[178]"C"[167] [129] I[178]1558 [164] 1564[169]2:[151]I,93:[130] 5405 [129] DL[178]1 [164] 500:[130]:[153]"YOUR PLAY" 5410 [139]P$[178]"L"[175]Q$[178]"L"[167] XA[178]1193:[137]5505 5415 [139]P$[178]"L"[175]Q$[178]"C"[167] XA[178]1201:[137]5505 5420 [139]P$[178]"L"[175]Q$[178]"R"[167] XA[178]1209:[137]5505 5425 [139] P$[178]"W"[175]Q$[178]"L"[167] XA[178]1273:[137]5510 5430 [139] P$[178]"W"[175]Q$[178]"R"[167] XA[178]1289:[137]5510 5435 [139] P$[178]"H"[175]Q$[178]"L"[167] XA[178]1397:[137]5515 5440 [139] P$[178]"H"[175]Q$[178]"R"[167] XA[178]1405:[137]5515 5445 [139] P$[178]"C"[167] XA[178]1401:[137]5520 5450 [139] P$[178]"T"[167] [141]5490:[137]5525 5455 [139] P$[178]"D"[167] [141]5490:[137]5530 5460 [139] P$[178]"P" [175] Q$[178]"L" [167] XA[178]1596:[137]5535 5465 [139] P$[178]"P" [175] Q$[178]"R" [167] XA[178]1606:[137]5535 5470 [139] P$[178]"S"[175]Q$[178]"L"[167] XA[178]1473:[137]5540 5475 [139] P$[178]"S"[175]Q$[178]"R"[167] XA[178]1489:[137]5540 5480 [139] P$[178]"F"[167] XA[178]1601:[137]5550 5485 [139] P$[178]"K"[167] XA[178]1601:[137]5545 5490 [139]Q$[178]"L"[167] XA[178]1599:[142] 5495 [139]Q$[178]"C"[167] XA[178]1601:[142] 5500 [139]Q$[178]"R"[167] XA[178]1603:[142] 5505 [153],"ON---LONG PASS":[137]5555 5510 [153],"ON---WIDE PASS":[137]5555 5515 [153],"ON---HOOK PASS":[137]5555 5520 [153],"ON---POST PATTERN PASS":[137]5555 5525 [153],"ON---TRAP PLAY":[137]5555 5530 [153],"ON---DIRECT HANDOFF":[137]5555 5535 [153],"ON---PITCHOUT":[137]5555 5540 [153],"ON---SCREEN PASS":[137]5555 5545 [153],"ON---KICK":[137]5555 5550 [153],"ON---FIELD GOAL ATTEMPT":[137]5555 5555 [129] I[178]1 [164] 4:[151]XA,32:[129]DL[178]1 [164] 300:[130] 5560 [151]XA,30:[129] DL[178]1 [164] 400:[130]DL:[130]I:[142] 6000 [139] N[178]OT [167] YL[178]YL[170]GN:[137]6020 6010 YL[178]YL[171]GN 6020 [139] YL[177]55 [167] [141]7000 6025 TG[178]TG[171]GN 6030 [139] N[178]DT [175] YL[179]1 [167] [137]7050 6034 [139]IT[178]1 [176] FL[178]1 [176] PE[178]1 [176] GN[178]0[167] [137]6040 6035 [139]FR[178]1[167] [141]9200:[153]"--FUMBLE ON THE PLAY":[141]9200:[137]10500 6040 [139] N[178]OT [175] YL[179]1 [167] [137]7500 6060 DN[178]DN[170]1 6070 [139] DN[177]3 [175]TG[177]0[167] [153]"BALL GOES OVER ON DOWNS":[137]6150 6080 [139]TG[179]1[167]DN[178]1:TG[178]10:[141]6100:[139]YL[179]10[175]N[178]DT[167] TG[178]YL 6090 [137]15050 6100 [139]SD[178]1[167]SD[178]0:[142] 6105 [129] J[178]1 [164] 8:[153]"" 6110 [139]J[173]2[178][181](J[173]2)[167] [153]""; 6115 [153]" FIRST DOWN WAITONONON"; 6120 [129] I[178]1 [164] 200:[130]I:[130]J 6125 F(OT)[178]F(OT)[170]1:[142] 6150 X[178]OT:OT[178]DT:DT[178]X 6170 [153] "" PL$(OT)" NOW HAS THE BALL":[141]13000 6180 DN[178]1:TG[178]10:[139]YL[179]10[175]N[178]DT[167]TG[178]YL 6200 [137] 15050 7000 YL[178]110[171]YL 7010 [139] N[178]1 [167] N[178]2:[137]7030 7020 [139] N[178]2 [167] N[178]1 7030 [142] 7050 [141]9200 7051 [153]"LOAD * * * * * * * * *" 7060 [153]" * *" 7070 [153]" *  TOUCHDOWN WAIT *" 7080 [153]" * * 7090 PRINT" * * * * * * * * *":PRINT"" 7095 SC(OT)=SC(OT)+7:GOSUB16600:GOTO13200 7500 GOSUB9200 7501 PRINT"[147] * * * * * * * * * * *" 7510 PRINT" * *" 7520 PRINT" *  SAFETY TOUCH [146] *" 7530 PRINT" * * 7540 [153]" * * * * * * * * * * *":[153]"" 7550 SC(DT)[178]SC(DT)[170]2:[141]16600 7555 [153]"LOAD":[153] PL$(DT)" NOW HAS THE OPTION OF:":[137]8885 7900 [143] 7910 [141]9000:[129] DL[178]1 [164] 500:[130]:[142] 8000 [141]7900:[153]"LOAD PITCHOUT":TT[178]45:[141]16010 8001 [139] FL[178]1 [167] [137]10000 8002 [139]XX[179]3[167] GN[178][171]4:[137]8006 8003 [139]XX[179]7[167] GN[178][171]6:[137]8006 8004 GN[178][171]8 8006 [139] SP[178]1 [167] GN[178]GN[171]10 8007 [141]9200:[153] GN "YARD LOSS" 8008 [139] PE[178]1 [167] [141]11000:[139]CC$[178]"A"[167] [137]11300 8009 R(OT)[178]R(OT)[170]GN:[137]6000 8010 [141]7900:[153]"LOAD LINE PLAY ":TT[178]40:[141]16010 8011 [139] FL[178]1 [167] [137]10000 8012 [139] XX[179]2[167] GN[178][171]3:[137]8016 8013 [139] XX[179]5[167] GN[178][171]1:[137]8016 8014 [139] XX[179]8[167] GN[178][171]2:[137]8016 8015 GN[178][171]3 8016 [137]8006 8020 [141]7900:[153]"LOAD LINE PLAY ":TT[178]40:[141]16010 8021 [139] FL[178]1 [167] [137]10000 8022 [139] XX[179]2[167] GN[178]4:[137]8026 8023 [139] XX[179]5[167] GN[178]1:[137]8026 8024 [139] XX[179]8[167] GN[178]2:[137]8026 8025 GN[178]3 8026 [139]DD[178]1 [167] [153]"  RUNNER BREAKS AWAY WAIT":GN[178]GN[172]2 8027 [139] SP[178]1 [167] GN[178]GN[171]10 8028 [141]9200:[153] GN "YARD GAIN" 8029 [139] PE[178]1 [167] [141]11000:[139]CC$[178]"A"[167] [137]11300 8030 R(OT)[178]R(OT)[170]GN:[137]6000 8031 [141]7900:[153]"LOAD LINE PLAY ":TT[178]40:[141]16010 8032 [139] FL[178]1 [167] [137]10000 8033 [139] XX[179]2[167] GN[178]5:[137]8037 8034 [139] XX[179]5[167] GN[178]6:[137]8037 8035 [139] XX[179]8[167] GN[178]7:[137]8037 8036 GN[178]8 8037 [137]8026 8040 [141]7900:[153]"LOAD RUNNING PLAY ":TT[178]45:[141]16010 8041 [139] FL[178]1 [167] [137]10000 8042 [139] XX[179]2[167] GN[178]9:[137]8046 8043 [139] XX[179]5[167] GN[178]10:[137]8046 8044 [139] XX[179]8[167] GN[178]11:[137]8046 8045 GN[178]12 8046 [137]8026 8050 [141]7900:[153]"LOAD RUNNING PLAY ":TT[178]45:[141]16010 8051 [139] FL[178]1 [167] [137]10000 8052 [139] XX[179]2[167] GN[178]13:[137]8056 8053 [139] XX[179]5[167] GN[178]14:[137]8056 8054 [139] XX[179]8[167] GN[178]15:[137]8056 8055 GN[178]16 8056 [137]8026 8060 [141]7900:[153]"LOAD RUNNING PLAY ":TT[178]45:[141]16010 8061 [139] FL[178]1 [167] [137]10000 8062 [139] XX[179]2[167] GN[178]20:[137]8066 8063 [139] XX[179]5[167] GN[178]23:[137]8066 8064 [139] XX[179]8[167] GN[178]26:[137]8066 8065 GN[178]30 8066 [137]8026 8070 [141]7900:[153]"LOAD RUNNING PLAY ":TT[178]45:[141]16010 8071 [139] FL[178]1 [167] [137]10000 8072 [139] XX[179]2[167] GN[178]35:[137]8076 8073 [139] XX[179]5[167] GN[178]38:[137]8076 8074 [139] XX[179]8[167] GN[178]42:[137]8076 8075 GN[178]45 8076 [137]8026 8080 [141]7900:[153]"LOAD SCREEN PASS":TT[178]40:[141]16010:[139]FL[178]1[167][137]10000 8081 PA(OT)[178]PA(OT)[170]1:[139] XX[179]3[167]PP[178][171]3:[203] [164]8086:[143]*** INCOMPLETE** 8082 [139] XX[179]5[167]PP[178][171]5:[203] [164]8086:[143]*** INCOMPLETE** 8083 [139]XX[179]7[167]PP[178][171]4:[137]8085:[143]*INTC* 8084 PP[178][171]6 8085 [153]"INTERCEPTED BY DEFENSE " PP "YDS FROM LINE":[137]9300 8086 [153]"" PP" YARD PASS -- INCOMPLETE":PI(OT)[178]PI(OT)[170]1:GN[178]0:[141]9200 8087 [139]IT[178]1[167][141]13000:[153]"INTERFERENCE CALLED ON THE PLAY":[137]9500 8089 [137]6000 8090 [141]7900:[153]"LOAD SCREEN PASS":TT[178]35:[141]16010:[139]FL[178]1[167][137]10000 8091 PA(OT)[178]PA(OT)[170]1:[139] XX[179]4[167] GN[178]11:[137]8094 8092 [139] XX[179]8[167] GN[178]13:[137]8094 8093 GN[178]15 8094 [137]8104 8095 [141]7900:[153]"LOAD SCREEN PASS":TT[178]40:[141]16010:[139]FL[178]1[167][137]10000 8096 PA(OT)[178]PA(OT)[170]1:[139] XX[179]4[167] GN[178]15:[137]8099 8097 [139] XX[179]8[167] GN[178]17:[137]8099 8098 GN[178]20 8099 [137] 8104 8100 [141]7900:[153]"LOAD SCREEN PASS":TT[178]40:[141]16010:[139]FL[178]1[167][137]10000 8101 PA(OT)[178]PA(OT)[170]1:[139] XX[179]4[167] GN[178]25:[137]8104 8102 [139] XX[179]8[167] GN[178]30:[137]8104 8103 GN[178]35 8104 [139] DD[178]1 [167] [153]"RUNNER BREAKS AWAYWAIT":GN[178]GN[172]2 8105 [141]9200:[153] GN " YARD GAIN" 8107 [139]PE[178]1[167] [141]11000:[139]CC$[178]"A"[167] CC$[178]"0":[137]11300 8108 PA(OT)[178]PA(OT)[170]1:PC(OT)[178]PC(OT)[170]1:P(OT)[178]P(OT)[170]GN:[137]6000 8110 [141]7900:[153]"LOAD HOOK PASS":TT[178]40:[141]16010:[139]FL[178]1[167][137]10000 8111 PA(OT)[178]PA(OT)[170]1:[139] XX[179]3[167]PP[178]12:[137]8115 8112 [139] XX[179]5[167]PP[178]14:[203] [164]8115 8113 [139]XX[179]8[167]PP[178]16:[137]8115 8114 PP[178]18 8115 [139]YY[179]5 [167] [137] 8117:[143] *** INCOMPLETE *** 8116 [153]"INTERCEPTED BY DEFENSE " PP "YDS FROM LINE":[137]9300 8117 [153]"" PP" YARD PASS -- INCOMPLETE":PI(OT)[178]PI(OT)[170]1:GN[178]0:[141]9200 8118 [139]IT[178]1[167][141]13000:[153]"INTERFERENCE CALLED ON THE PLAY":[137]9500 8119 [137]6000 8120 [141]7900:[153]"LOAD HOOK PASS":TT[178]35:[141]16010:[139]FL[178]1[167][137]10000 8121 PA(OT)[178]PA(OT)[170]1:[139] XX[179]2[167] PP[178]10:[137]8300 8122 [139] XX[179]3[167] PP[178]8:PR[178]3:[137]8300 8123 [139] XX[179]5[167] PP[178]10:PR[178]3:[137]8300 8125 [139] XX[179]7[167] PP[178]10:PR[178]2:[137]8400 8126 [139] XX[179]8[167] PP[178]7:PR[178]3:[137]8400 8127 PP[178]8:PR[178]4:[137]8400 8130 [141]7900:[153]"LOAD SHORT PASS":TT[178]40:[141]16010:[139]FL[178]1[167][137]10000 8131 PA(OT)[178]PA(OT)[170]1:[139] XX[179]2[167] PP[178]10:PR[178]15:[137]8400 8132 [139] XX[179]4[167] PP[178]8:PR[178]15:[137]8400 8133 [139] XX[179]6[167] PP[178]12:PR[178]18:[137]8400 8134 [139] XX[179]8[167] PP[178]10:PR[178]16:[137]8400 8135 PP[178]10:PR[178]14:[137]8400 8140 [141]7900:[153]"LOAD SHORT PASS":TT[178]45:[141]16010:[139]FL[178]1[167][137]10000 8141 PA(OT)[178]PA(OT)[170]1:[139] XX[179]2[167] PP[178]10:PR[178]25:[137]8400 8142 [139] XX[179]4[167] PP[178]8:PR[178]25:[137]8400 8143 [139] XX[179]6[167] PP[178]12:PR[178]28:[137]8400 8144 [139] XX[179]8[167] PP[178]10:PR[178]26:[137]8400 8145 PP[178]10:PR[178]30:[137]8400 8150 [141]7900:[153]"LOAD POST PASS":TT[178]40:[141]16010:[139]FL[178]1[167][137]10000 8151 PA(OT)[178]PA(OT)[170]1:[139] XX[179]3[167]PP[178]18:[137]8155 8152 [139] XX[179]5[167]PP[178]20:[203] [164]8155 8153 [139]XX[179]8[167]PP[178]25:[137]8155 8154 PP[178]28 8155 [139]YY[179]5 [167] [137] 8157:[143] *** INCOMPLETE *** 8156 [153]"INTERCEPTED BY DEFENSE " PP "YDS FROM LINE":[137]9300 8157 [153]"" PP" YARD PASS -- INCOMPLETE":PI(OT)[178]PI(OT)[170]1:GN[178]0:[141]9200 8158 [139]IT[178]1[167][141]13000:[153]"INTERFERENCE CALLED ON THE PLAY":[137]9500 8159 [137]6000 8160 [141]7900:[153]"LOAD POST PASS":TT[178]35:[141]16010:[139]FL[178]1[167][137]10000 8161 PA(OT)[178]PA(OT)[170]1:[139] XX[179]2[167] PP[178]12:[137]8300 8162 [139] XX[179]5[167] PP[178]10:[137]8300 8165 [139] XX[179]7[167] PP[178]12:PR[178]2:[137]8400 8166 [139] XX[179]8[167] PP[178]13:PR[178]3:[137]8400 8167 PP[178]11:PR[178]4:[137]8400 8170 [141]7900:[153]"LOAD WIDE PASS":TT[178]40:[141]16010:[139]FL[178]1[167][137]10000 8171 PA(OT)[178]PA(OT)[170]1:[139] XX[179]3[167]PP[178]18:[137]8175 8172 [139] XX[179]5[167]PP[178]20:[203] [164]8175 8173 [139]XX[179]8[167]PP[178]25:[137]8175 8174 PP[178]28 8175 [139]YY[179]5 [167] [137] 8177:[143] *** INCOMPLETE *** 8176 [153]"INTERCEPTED BY DEFENSE " PP "YDS FROM LINE":[137]9300 8177 [153]"" PP" YARD PASS -- INCOMPLETE":PI(OT)[178]PI(OT)[170]1:GN[178]0:[141]9200 8178 [139]IT[178]1[167][141]13000:[153]"INTERFERENCE CALLED ON THE PLAY":[137]9500 8179 [137]6000 8180 [141]7900:[153]"LOAD WIDE PASS":TT[178]35:[141]16010:[139]FL[178]1[167][137]10000 8181 PA(OT)[178]PA(OT)[170]1:[139] XX[179]2[167] PP[178]21:[137]8300 8182 [139] XX[179]4[167] PP[178]18:[137]8300 8183 [139] XX[179]5[167] PP[178]20:[137]8300 8185 [139] XX[179]6[167] PP[178]20:PR[178]2:[137]8400 8186 [139] XX[179]8[167] PP[178]18:PR[178]3:[137]8400 8187 PP[178]21:PR[178]4:[137]8400 8190 [141]7900:[153]"LOAD WIDE PASS":TT[178]45:[141]16010:[139]FL[178]1[167][137]10000 8191 PA(OT)[178]PA(OT)[170]1:[139] XX[179]2[167] PP[178]21:PR[178]8:[137]8400 8192 [139] XX[179]4[167] PP[178]18:PR[178]10:[137]8400 8193 [139] XX[179]6[167] PP[178]20:PR[178]12:[137]8400 8194 [139] XX[179]8[167] PP[178]20:PR[178]9:[137]8400 8195 PP[178]18:PR[178]10:[137]8400 8200 [141]7900:[153]"LOAD LONG PASS":TT[178]50:[141]16010:[139]FL[178]1[167][137]10000 8201 PA(OT)[178]PA(OT)[170]1:[139] XX[179]3[167]PP[178]35:[137]8205 8202 [139] XX[179]5[167]PP[178]40:[203] [164]8205 8203 [139]XX[179]8[167]PP[178]44:[137]8205 8204 PP[178]48 8205 [139]YY[179]5 [167] [137] 8207:[143] *** INCOMPLETE *** 8206 [153]"INTERCEPTED BY DEFENSE " PP "YDS FROM LINE":[137]9300 8207 [153]"" PP" YARD PASS -- INCOMPLETE":PI(OT)[178]PI(OT)[170]1:GN[178]0:[141]9200 8208 [139]IT[178]1[167][141]13000:[153]"INTERFERENCE CALLED ON THE PLAY":[137]9500 8209 [137]6000 8210 [141]7900:[153]"LOAD LONG PASS":TT[178]40:[141]16010:[139]FL[178]1[167][137]10000 8211 PA(OT)[178]PA(OT)[170]1:[139] XX[179]2[167] PP[178]30:[137]8300 8212 [139] XX[179]4[167] PP[178]35:[137]8300 8213 [139] XX[179]5[167] PP[178]40:[137]8300 8215 [139] XX[179]6[167] PP[178]30:PR[178]2:[137]8400 8216 [139] XX[179]8[167] PP[178]35:PR[178]3:[137]8400 8217 PP[178]40:PR[178]3:[137]8400 8220 [141]7900:[153]"LOAD LONG PASS":TT[178]45:[141]16010:[139]FL[178]1[167][137]10000 8221 PA(OT)[178]PA(OT)[170]1:[139] XX[179]2[167] PP[178]30:PR[178]28:[137]8400 8222 [139] XX[179]4[167] PP[178]35:PR[178]25:[137]8400 8223 [139] XX[179]6[167] PP[178]40:PR[178]22:[137]8400 8224 [139] XX[179]8[167] PP[178]35:PR[178]28:[137]8400 8225 PP[178]40:PR[178]21:[137]8400 8230 [141]7900:[153]"LOAD LONG PASS ATTEMPT":[153]"QUARTERBACK UNDER PRESSURE" 8231 [141]9200:TT[178]10:[141]16010:[139]FL[178]1[167] [137]10000 8232 [139][187](.)[179]0.08[167] [153]"QUARTERBACK SCRAMBLES, THEN RUNS":[137]3200 8234 [139][187](.)[179]0.08[167] [153]"QUARTERBACK SCRAMBLES, THEN THROWS":[137]8240 8235 [153]" QUARTERBACK SACKED":[139]XX[179]3[167] GN[178][171]12:[137]8239 8236 [139]XX[179]5[167]GN[178][171]9:[137]8239 8237 [139]XX[179]8[167] GN[178][171]10:[137]8239 8238 GN[178][171]13 8239 TT[178]35:[141]16010:[137]8006:[143]**LOSS 8240 [141]9200:[139]YY[179]6[167] [137]3860:[143]**LONG 8242 [139]YY[179]7[167] [137] 3420:[143]**SCREEN 8244 [139]YY[179]8[167] [137] 3520:[143]**HOOK 8248 [137]3610:[143]**POST 8250 [141]7900:[153]"LOAD SHORT KICK":TT[178]30:[141]16010 8251 KI(OT)[178]KI(OT)[170]1:[139]XX[179]3[167]KY[178]38:[137]8270 8252 [139]XX[179]5[167]KY[178]42:[137]8270 8253 [139]XX[179]7[167]KY[178]45:[137]8270 8254 KY[178]47:[137]8270 8260 [141]7900:[153]"LOAD LONG KICK":TT[178]35:[141]16010 8261 KI(OT)[178]KI(OT)[170]1:[139]XX[179]3[167]KY[178]50:[137]8270 8262 [139]XX[179]5[167]KY[178]52:[137]8270 8263 [139]XX[179]8[167]KY[178]50:[137]8270 8264 KY[178]54:[137]8270 8270 [153]"KICK IS" KY" YARDS":KY(OT)[178]KY(OT)[170]KY:GN[178]KY 8272 [141]8710:[153] 8278 [139]YL[177]0[167] [153]"RECEIVED ON THE" YL" YARD LINE":[137]8500 8279 [139]YL[179][171]19[167][153]"OVER THE DEAD BALL LINE":X[178]OT:OT[178]DT:DT[178]X:[137]8665 8280 LR[178][171]YL:[153]"RECEIVED" LR" YARDS BEHIND THE GOAL LINE":[137]8600 8300 [153] PP" YARD PASS, INCOMPLETE":GN[178]0:PE[178]0 8310 [139]IT[178]1[167][141]13000:[153]" --INTERFERENCE CALLED ON THE PLAY":[137]9500 8320 GN[178]0:PI(OT)[178]PI(OT)[170]1:[137]6000 8400 [139]N[178]DT[167][139]PP[177]YL[170]19[167] [153]PP"PASS COMPLETE,--OUT OF BOUNDS":[137]8320 8408 [139] DD[178]1[167] [153]"  RUNNER BREAKS AWAY WAIT":PR[178]PR[172]2 8410 [141]9200:GN[178]PP[170]PR:[153] PP"YD PASS AND"PR"YD RUN="GN"YARD GAIN" 8430 [139]PE[178]1[167] [141]11000:[139]CC$[178]"A"[167] CC$[178]"0":[137]11300 8440 PC(OT)[178]PC(OT)[170]1:P(OT)[178]P(OT)[170]GN:[137]6000 8500 X[178]OT:OT[178]DT:DT[178]X:[143] ** RUNBACK ** 8510 [141]7900:[139](L6[170]L7[170]L8)[177]1[175]B5[178]1 [167] [137]8550:[143]**LONG** 8520 [153]" SHORT RUNBACK":[139]XX[179]3[167]RB[178]3:[137]8580 8522 [139]XX[179]5[167]RB[178]5:[137]8580 8524 [139]XX[179]7[167]RB[178]7:[137]8580 8526 RB[178]8:[137]8580 8550 [153]" LONG RUNBACK":[139]XX[179]3[167]RB[178]10:[137]8580 8552 [139]XX[179]5[167]RB[178]12:[137]8580 8554 [139]XX[179]7[167]RB[178]15:[137]8580 8556 RB[178]17:[137]8580 8580 [153]" --" RB" YARDS":RB(OT)[178]RB(OT)[170]RB:GN[178]RB:[141]8710 8582 [139]YL[179]1[167] [137]8660 8585 [153]"FIRST DOWN " PL$(OT)" ON THE" YL"YARD LINE":TG[178]10:DN[178]1 8587 GY[178]0:GF[178]0:[141]9200:[137]15050 8600 X[178]OT:OT[178]DT:DT[178]X:[153]" DO YOU WANT TO TRY TO (R)UN IT OUT?" 8610 [153]" --OR DO YOU (C)ONCEDE THE POINT?" 8620 [161]DD$:[139]DD$[178]""[167] 8620 8630 [139]DD$[178]"R"[167] [137]8510 8640 [139]DD$[178]"C"[167] [137]8665 8645 [139]DD$[179][177]"R" [176]DD$[179][177]"C"[167] [137]8620 8660 [153]"YOU DIDN'T GET OUT" 8665 [141]9200 8667 [153]"LOAD * * * * * * * * *" 8670 [153]" * *" 8672 [153]" *  ONE POINT WAIT *" 8674 [153]" * * 8676 PRINT" * * * * * * * * *":PRINT"" 8678 SC(DT)=SC(DT)+1:GOSUB16600 8680 IF GF=1 THEN GF=0:IFGY>35THENGOTO8690 8685 YL=35:GY=0:GOTO8585 8690 YL=GY:GY=0:GOTO8585 8710 IFN=OT THEN YL=YL+GN:GOTO8730 8720 YL=YL-GN 8730 IFYL>55THEN GOSUB7000 8740 RETURN 8800 GOSUB7900:PRINT"[147] FIELD GOAL ATTEMPT":TT=30:GOSUB16010 8804 GF=1:GY=YL:FA(OT)=FA(OT)+1:IFYL<21ANDXX<9THEN GOTO8850 8806 IFYL<31ANDXX<8THEN GOTO8850 8808 IFYL<36ANDXX<7THEN GOTO8850 8810 IFYL<41ANDXX<5THEN GOTO8850 8812 IFYL<46ANDXX<2THEN GOTO8850 8820 IFYL<34 THEN GOTO8840 8825 IFRND(1)<0.7 THEN GOTO8840 8830 KL=35:YL=YL-KL:PRINT"KICK IS SHORT" 8835 PRINT" --RECEIVED ON THE " YL"YARD LINE":GOTO8500 8840 PRINT"KICK IS WIDE" 8845 YL=-13:PRINT" RECEIVED 13 YDS BEHIND THE GOAL LINE":GOTO8600 8850 PRINT" * * * * * * * * * *" 8855 PRINT" * *" 8860 PRINT" *  IT'S GOOD [146] *" 8865 PRINT" * *" 8870 PRINT" * * * * * * * * * *" 8875 FS(OT)=FS(OT)+1:SC(OT)=SC(OT)+3:GOSUB16600:GY=0 8880 PRINT"[147]":PRINT PL$(DT)" NOW HAS THE OPTION OF:" 8885 PRINT" (K)ICK OFF FROM THE 35 YARD LINE" 8890 PRINT" --YOU HAVE THE CHOICE OF" 8895 PRINT" KICK OR RECEIVE" 8897 PRINT" (F)IRST DOWN FROM YOUR 35 YARD LINE" 8898 PRINT" ENTER (K) OR (F)" 8900 GETKK$:IFKK$=""THEN 8900 8905 IF KK$="K"THEN GOTO13200 8910 IFKK$="F"THENYL=35:DN=1:GF=0:TG=10:X=OT:OT=DT:DT=X:N=OT:GOTO15050 8915 IFKK$<>"F" OR KK$<>"K" THEN GOTO8900 9000 FR=0:FL=0:PE=0:IT=0:XX=0:YY=0:DD=0 9001 IF RND(.)<0.05THEN FR=1 9010 IF RND(.)<0.05THEN FL=1 9020 IF RND(.)<0.05 THEN PE=1 9030 IF RND(.)<0.05 THEN IT=1 9035 IF RND(.)<0.15THEN DD=1 9040 XX=INT(10*RND(1)) 9050 YY=INT(10*RND(.)) 9060 RETURN 9200 FOR DL=1 TO 1000:NEXT:RETURN 9300 REM *** INTERCEPTION ** 9310 IFPE=1THEN GOTO9700 9320 IFN=DTTHENIFPP>YL+19THENPRINT" OUT OF BOUNDS":GOSUB9395:GOTO6000 9322 IFN=DTTHENIFPP>=YLTHEN PRINT" BEHIND THE GOAL LINE":GOSUB9396:GOTO9380 9324 IFN=OTTHENIF-PP>=YLTHEN PRINT" BEHIND THE GOAL LINE":GOSUB9396:GOTO9850 9330 PRINT PL$(DT) " NOW HAS THE BALL":PRINT" ---RUNBACK":GOSUB7900 9340 GOTO9400 9380 X=OT:OT=DT:DT=X 9384 PRINT" FIRST DOWN "PL$(OT)" FROM THE 25 YARD LINE" 9386 GOSUB13020:PX(OT)=PX(OT)+1:YL=25:DN=1:TG=10:GOTO15050 9395 PRINT"PASS INCOMPLETE":PI(OT)=PI(OT)+1:GN=0:GOSUB13000 9396 IFPE=0THENRETURN 9397 GOSUB9200:PRINT"BUT THERE WAS A FLAG ON THE PASS PLAY":GOSUB9200 9398 PRINT:PRINTPE$ " BY THE "PZ$:PRINT" --PENALTY DECLINED":RETURN 9400 REM **** RUNBACK *** 9405 X=OT:OT=DT:DT=X 9415 IFXX<2THENRB=4:GOTO9440 9420 IFXX<4THENRB=6:GOTO9440 9425 IFXX<6THENRB=10:GOTO9440 9430 IFXX<8THENRB=15:GOTO9440 9435 RB=20 9440 PRINT"RUNBACK IS " RB "YARDS":TT=15:GOSUB16010 9450 GN=PP-RB:GN=-GN:TG=-90:SD=1:PX(OT)=PX(OT)+1:RB(OT)=RB(OT)+RB:GOSUB9396 9455 PRINT"THERE IS A GAIN OF "(-GN)"YDS. ON THE PLAY":GOSUB13020:GOTO6000 9500 REM ***INTERFERENCE** 9505 GOSUB9200 9510 IF N=DT ANDPP>YL+19 THEN PRINT" OUT OF BOUNDS":GOTO9630 9515 PE(DT)=PE(DT)+1 9520 IF N=DT ANDPP>YL THEN PRINT" BEHIND THE GOAL LINE":GOTO9600 9530 IF N=DT ANDPP<1 ANDYL<20 THEN GOTO9580 9540 PY=PP 9550 IF PP<1 THEN PY=10 9560 GN=PY:PY(DT)=PY(DT)+GN:PRINT" PASS DECLARED COMPLETE" 9565 PRINT" GAIN IS" GN" YARDS":TG=-90:GOTO6000 9580 PY=INT(YL/2):YL=YL-PY:DN=1:TG=YL:GOTO9608 9600 DN=1:TG=1:PY=YL-1:YL=1 9608 IF YL=0 THEN YL=1 9610 PRINT" FIRST DOWN "PL$(OT)" FROM "YL"YARD LINE" 9620 PY(DT)=PY(DT)+PY:GOTO15050 9630 PRINT" PASS INCOMPLETE":GN=0:GOSUB13000:GOTO6000 9700 GOSUB7900 9710 IFYY<5THENPZ=3:PZ$="OFFENSE":GOTO9730:REM---NO PENALTY 9720 IFYY>4THEN PZ=1:PZ$="DEFENSE":REM---YES PLAY THE PENALTY 9730 IFXX<5THENPE$="OFFSIDE":PY=5:GOTO9760 9740 IFXX<8THENPE$="HOLDING":PY=10:GOTO9760 9750 PE$="ILLEGAL BLOCKING":PY=10 9760 IF PZ=3 THEN GOTO9320 9765 GOSUB9200:PRINT" RUNBACK IS 15 YARDS" 9770 GOSUB9200:PRINT"BUT THERE WAS A FLAG ON THE PASS PLAY":GOSUB9200 9780 PRINT:PRINTPE$ " BY THE " PZ$:PRINT" --PENALTY ACCEPTED, NO INTERCEPTION" 9800 IFOT=NTHEN IFYL-PY<(YL/2)THEN PY=INT(YL/2):IFYL=1THENPY=0 9810 PRINT PY "YARD PENALTY" 9820 GN=PY:PE(DT)=PE(DT)+1:PY(DT)=PY(DT)+PY:DN=DN-1:GOSUB13020:GOTO6000 9850 PX(DT)=PX(DT)+1:GOTO7050 10000 REM *** FUMBLE AT LINE *** 10002 PRINT"THERE IS A FUMBLE IN THE BACKFIELD":GOSUB9200 10005 YY=INT(RND(1)*5)+1 10010 ON YY GOTO10100,10150,10200,10300,10400 10100 PRINT"RECOVERED BY OFFENSE":GN=-6:GOSUB10900:GOTO10450 10150 PRINT"RECOVERED BY OFFENSE":GN=-4:GOSUB10900:GOTO10450 10200 PRINT"RECOVERED BY OFFENSE":GN=-2:GOSUB10900:GOTO10450 10300 PRINT"RECOVERED BY DEFENSE[146]":GN=5:GOSUB10920:GOTO10460 10400 PRINT"RECOVERED BY DEFENSE[146]":GN=3:GOSUB10920:GOTO10460 10450 PRINT GN "YARDS BEHIND LINE OF SCRIMMAGE":GOSUB13020:GOTO6000 10460 X=OT:OT=DT:DT=X 10475 PRINT GN "YARDS BEHIND LINE OF SCRIMMAGE" 10480 PRINT ""PL$(OT) " NOW HAS THE BALL":TG=-90:SD=1:GOSUB13020:GOTO6000 10500 REM ** FUMBLE AT END OF RUN *** 10510 FR=0:YY=INT(RND(1)*4)+1 10520 ON YY GOTO10530,10560,10590,10640 10530 PRINT"RECOVERED BY OFFENSE":FZ=-6:GN=FZ:GOSUB10900:GOTO10690 10560 PRINT"RECOVERED BY OFFENSE":FZ=-4:GN=FZ:GOSUB10900:GOTO10690 10590 PRINT"RECOVERED BY DEFENSE[146]":FZ=5:GN=FZ:GOSUB10920 10610 PRINT FZ"YARDS BEHIND END OF RUN":GOTO10730 10640 PRINT"RECOVERED BY DEFENSE[146]":FZ=0:GN=FZ:GOSUB10920 10660 PRINT" AT END OF RUN":GOTO10730 10690 PRINT FZ"YARDS BEHIND END OF RUN" 10710 PRINT"LOSS OF"(-GN) "YDS ON THE FUMBLE":GOSUB13020:GOTO6000 10730 X=OT:OT=DT:DT=X:PRINT 10750 PRINT PL$(OT)" NOW HAS THE BALL":TG=-90:SD=1:GOSUB13020:GOTO6000 10900 FU(OT)=FU(OT)+1:FY(OT)=FY(OT)+GN:FX(OT)=FX(OT)+1:RETURN 10920 FU(OT)=FU(OT)+1:FY(OT)=FY(OT)+GN:FX(DT)=FX(DT)+1:RETURN 11000 REM ***** PENALTY ****** 11002 IFMM<1THEN IF Q=2 ORQ=4 THEN RETURN 11005 PRINT"BUT THERE WAS A FLAG ON THE PLAY":GOSUB9040:GOSUB9200 11010 IFYY<5THENPZ=3:PZ$="OFFENSE":GOTO11030 11020 PZ=1:PZ$="DEFENSE" 11030 IFXX<3THEN PE$="OFFSIDE":PY=5:GOTO11080 11035 IFXX<5THEN PE$="ILLEGAL PROCEDURE":PY=5:GOTO11080 11040 IFXX<7THEN PE$="HOLDING":PY=10:GOTO11080 11050 IFXX<9THEN PE$="ILLEGAL BLOCKING":PY=10:GOTO11080 11060 PE$="ROUGHING":PY=15 11080 IF PZ=3 THEN GOTO11200 11100 REM*** PENALTY BY DEFENSE 11101 PRINT " "PE$ " BY THE " PZ$" 11110 [153]"DOES " PL$(OT)" (A)CCEPT OR (D)ECLINE" 11115 [153]" THE PENALTY?" 11120 [161] CC$:[139]CC$[178]""[167] 11120 11130 [139] CC$[178]"D"[167] [153]"PENALTY DECLINED":[142] 11140 [139] CC$[178]"A"[167] [137]11150 11145 [139] CC$[179][177]"A" [176]CC$[179][177]"D" [167] [137]11120 11150 [142] 11200 [143]*** PENALTY BY OFFENSE 11201 [153] " "PE$ " BY THE " PZ$" 11210 PRINT"DOES " PL$(DT) " (A)CCEPT OR (D)ECLINE" 11215 PRINT" THE PENALTY?" 11220 GET CC$:IFCC$=""THEN 11220 11230 IF CC$="D"THEN PRINT"PENALTY DECLINED":RETURN 11240 IF CC$="A"THEN GOTO11250 11245 IF CC$<>"A" ORCC$<>"D" THEN GOTO11220 11250 RETURN 11300 PRINT"PENALTY ACCEPTED" 11320 IFPZ=3THEN GOTO11350 11330 IF PZ=1 THEN GOTO11370 11350 REM *** OFFENSE *** 11355 IFOT=NTHEN IFYL-PY<(YL/2)THEN PY=INT(YL/2):IFYL=1THENPY=0 11360 GN=-PY:PRINT" --PENALTY OF "GN" YARDS" 11365 PE(OT)=PE(OT)+1:PY(OT)=PY(OT)+GN:DN=DN-1:GOSUB13020:GOTO6000 11370 REM *** DEFENSE *** 11375 IFDT=NTHEN IFYL-PY<(YL/2)THEN PY=INT(YL/2):IFYL=1THENPY=0 11380 GN=PY:PRINT" --PENALTY OF "GN" YARDS" 11385 PE(DT)=PE(DT)+1:PY(DT)=PY(DT)+GN:DN=DN-1:GOSUB13020:GOTO6000 12000 DIM CH(1),PL$(2) 12002 Q=1 12008 POKE53280,13:POKE53281,13:POKE646,0 12010 REM ** CHOOSE TEAM NAMES ** 12020 PRINT"[147] CHOOSE TEAM NAMES" 12025 PRINT" (NO MORE THAN 9 LETTERS, PLEASE)" 12030 PRINT"PLAYER 1 - YOUR TEAM NAME":PRINT 12040 INPUT PL$(1) 12050 PRINT"PLAYER 2 - YOUR TEAM NAME":PRINT 12060 INPUT PL$(2) 12070 REM ** COIN TOSS ** 12071 PRINT"[147] TOSS COIN[146]" 12080 CT=INT(RND(1)*2)+1 12090 CH(1)=CT 12095 MM=15:SS=0:TT=0 12097 ON CT GOTO 12100,12150 12100 PRINT ""PL$(CT);" HAS THE CHOICE" 12108 PRINT "WILL YOU (K)ICK OR (R)ECEIVE?" 12110 GET K$:IF K$=""THEN GOTO12110 12120 IF K$="K"THEN OT=1:DT=2:GOTO12200 12130 IF K$="R"THEN OT=2:DT=1:GOTO12200 12140 IF K$<>"K" OR K$<>"R"THEN12108 12150 PRINT ""PL$(CT);" HAS THE CHOICE" 12152 PRINT "WILL YOU (K)ICK OR (R)ECEIVE?" 12160 GET K$:IF K$=""THEN GOTO12160 12170 IF K$="K"THEN OT=2:DT=1:GOTO12200 12180 IF K$="R"THEN OT=1:DT=2:GOTO12200 12185 IF K$<>"K" OR K$<>"R"THEN12152 12200 PRINT:PRINT:PRINT PL$(OT); " WILL KICK OFF":PRINT:PRINT 12210 PRINT PL$(DT); " WILL RECEIVE":GOSUB9200 12220 YL=35:N=OT:IFGF=1THEN GF=0 12250 REM **KICKOFF** 12255 PRINT"[147] ****** KICKOFF ****** " 12260 IFRND(.)<0.02THEN PRINT"KICK OUT OF BOUNDS, 5 YARD PENALTY":YL=YL-5 12265 GOSUB9200 12270 ZZ=INT(10*RND(.)) 12280 IF ZZ<3 THEN KI=50:GOTO12300 12282 IF ZZ<6 THEN KI=55:GOTO12300 12284 IF ZZ<9 THEN KI=60:GOTO12300 12285 KI=65 12300 PRINT"KICK IS" KI"YARDS":GOSUB9200:YL=YL+KI 12310 IF YL>55 THEN GOSUB15000 12320 PRINT"KICK RECEIVED ON " PL$(N) YL " YARD LINE" 12325 X=OT:OT=DT:DT=X 12330 PRINT" ----RUNBACK":GOSUB13010 12350 CL=0:RP=0:DD=0 12351 IF RND(.)<0.08 THEN CL=1 12355 IF RND(1)<0.08 THEN RP=1 12357 GOSUB13050 12360 IF RND(1)<0.2 THEN DD=1 12370 ZZ=INT(10*RND(.)) 12375 IFZZ<1 THEN GN=12:GOTO12400 12380 IFZZ<3 THEN GN=15:GOTO12400 12385 IF ZZ<6THEN GN=17:GOTO12400 12387 IF ZZ<9THEN GN=19:GOTO12400 12390 GN=21 12400 IF DD=1THEN DD=0:PRINT"RUNNER BREAKS AWAY[146]":GN=GN*2:GOSUB9200 12405 PRINT"RETURN," GN "YARDS":GOSUB9200:RT(OT)=RT(OT)+GN:YL=YL+GN 12410 IF RP=1 THEN PRINT"BUT THERE IS A FLAG ON THE PLAY":GOSUB12550:YL=YL+PY 12415 IF CL=1 THEN PRINT"BUT THERE IS A FLAG ON THE PLAY":GOSUB12500:YL=YL+PY 12430 TT=7:DN=1:TG=10:GOSUB16010 12460 IF YL>55 THEN GOSUB15000 12480 GOTO15050 12500 CL=0:PRINT"CLIPPING BY THE OFFENSE":PE(OT)=PE(OT)+1 12503 PRINT" 15 YARD PENALTY":GOSUB9200:PY(OT)=PY(OT)+15:PY=-15:GOTO12555 12550 RP=0:PRINT"ROUGH PLAY BY THE DEFENSE":PE(DT)=PE(DT)+1 12552 PRINT" 25 YARD PENALTY":GOSUB9200:PY(DT)=PY(DT)+25:PY=25:GOTO12560 12555 IFOT=NTHEN IFYL+PY<(YL/2)THEN PY=-(INT(YL/2)):IFYL=1THENPY=0 12560 GN=GN+PY 12563 PRINT"TOTAL RETURN IS " GN" YDS":RETURN 13000 REM: *** DELAY *** 13010 FOR DL=1 TO 1500:NEXT:RETURN 13020 FOR DL=1 TO 3000:NEXT:RETURN 13050 IF MM<1 AND Q=2 THEN CL=0:RP=0 13060 IF MM<1 AND Q=4 THEN CL=0:RP=0 13070 RETURN 13100 REM*** KICKOFF FOR SECOND HALF ** 13105 PRINT"[147]" 13110 IF CH(1)=1 THEN CT=2 13120 IF CH(1)=2 THEN CT=1 13130 GOTO12095 13200 REM***KICKOFF AFTER TOUCHDOWN, FG, AND SAFETY **** 13205 PRINT"[147]" 13210 CT=DT 13230 GOTO12097 14999 REM *** CONSTANTS **** 15000 YL=110-YL 15010 IF N=1THEN N=2:GOTO15030 15020 IF N=2THEN N=1 15030 RETURN 15050 GOSUB13000:PRINT"[147]" 15053 PRINT" [200]" 15054 PRINT" [200]DOWN " DN 15056 PRINT" [200]BALL IS ON "PL$(N)"'S"YL "YARD LINE" 15062 PRINT" [200]" 15064 PRINT" [200]"PL$(OT)" HAS THE BALL" 15066 PRINT" [200]" 15068 PRINT" [200]" TG "YARDS TO GO" 15070 PRINT" [200]" 15071 PRINT" [200]" 15072 PRINT" [200]QUARTER" Q 15073 PRINT" [200]" 15074 PRINT" [200]TIME REMAINING" 15075 PRINT" [200]" 15076 PRINT" [200]" MM "MINUTES AND" SS "SECONDS" 15078 PRINT" [200]" 15079 PRINT" [200]SCORE"TAB(10)PL$(1)TAB(25)PL$(2) 15080 PRINT" [200]"TAB(10)SC(1)TAB(25)SC(2) 15082 PRINT" [200]" 15085 IF MM<0ANDQ=2 THEN PRINT" END OF HALF":GOSUB16000:GOTO16060 15090 IF MM<0ANDQ=4 THEN PRINT" END OF GAME":GOSUB16000:GOTO16060 15095 IF MM<0 THEN PRINT" END OF QUARTER":GOSUB16000:GOTO16060 15099 GOSUB16500:GOTO4 16000 MM=15:SS=0:Q=Q+1:RETURN 16010 IFSC(OT)"Y" OR YY$<>"N"THEN GOTO 16070 16110 PRINT"[147] TOTAL STATISTICS":PRINT 16130 PRINTTAB(16);PL$(1);TAB(28)PL$(2):PRINT 16140 PRINT"[160]YDS RUSHING"TAB(20)R(1),R(2) 16150 PRINT" YDS PASSING"TAB(20)P(1),P(2) 16151 PRINT" FIRST DOWNS"TAB(20)F(1),F(2):PRINT 16152 PRINT" PASSES ATT'D/COMP"TAB(20)PA(1)"/"PC(1),PA(2)"/"PC(2) 16157 PRINT" INTERCEPTED BY"TAB(20)PX(1),PX(2) 16160 PRINT" F.GOALS ATT'D/SUC"TAB(20)FA(1)"/"FS(1),FA(2)"/"FS(2) 16170 PRINT:PRINT"[160]FUMBLES/REC'D"TAB(20)FU(1)"/"FX(1),FU(2)"/"FX(2) 16180 PRINT" YARDS"TAB(20)FY(1),FY(2)" 16200 [153]" PENALTIES/YDS"[163]20)PE(1)"/"PY(1),PE(2)"/"PY(2):[153] 16230 [153]" NUMBER OF KICKS"[163]20)KI(1),KI(2) 16240 [153]" YARDS KICKING"[163]20)KY(1),KY(2) 16245 [153]" YDS RUNBACK"[163]20)RB(1),RB(2) 16250 [153]" SCORE"[163]20)SC(1),SC(2) 16400 [153]"PRESS ANY KEY TO CONTINUE" 16410 [161]YY$:[139]YY$[178]""[167]16410 16420 [139]Q[178]2 [176] Q[178]4 [167] [137]15050 16430 [139]Q[178]1 [176] Q[178]3 [167] [137]13100 16440 [153]"LOAD THAT WAS A GOOD GAME" 16450 [153]" WE MUST TRY IT AGAIN SOON" 16452 [153]"WOULD YOU LIKE TO PLAY AGAIN" 16454 [133] A$ : [139] A$ [178]"Y" [167] [137] 1 16456 [153]"LOADWOULD YOU LIKE TO REBOOT THE AUTOLOAD" 16458 [133] N$ :[139] N$[178]"Y" [167] [153]"LOADING...":[147]"AUTOBOOT",8 16460 [128] 16500 [153]"PRESS ANY KEY TO CONTINUE" 16510 [161]YY$:[139]YY$[178]""[167]16510 16520 [142] 16600 [153]" SCORE" 16610 [153],PL$(1),PL$(2):[153] 16620 [153],SC(1),SC(2):[141]13020:[142] 18000 [151] 45,[194](174) 18010 [151] 46,[194](175) 18020 [151] 47,[194](45) 18030 [151] 48,[194](46) 18040 [151] 49,[194](45) 18050 [151] 50,[194](46) 18060 [153][199](142) 18070 [142] 20000 [159]15,8,15:[152]15,"S0:FOOTBALL":[148]"0:FOOTBALL",8:[160]15